home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / amsf20.zip / AMSCTL.INC < prev    next >
Text File  |  1992-01-06  |  2KB  |  40 lines
  1. C
  2. C AMS KERNEL CONTROL INFORMATION
  3. C
  4. C CONSTANTS
  5. C     NVERSN :  AMS VERSION NUMBER
  6. C     NDATA  :  NO. OF DATA BASES ALLOWED (5)
  7. C     MAVAIL :  MEMORY AVAILABLE (DEFAULT 30000)
  8. C     INTL   :  NO. OF BYTES OR WORDS PER INTEGER (MACHINE DEPENDENT)
  9. C     LENG   :  RECORD LENGTH OF DIRECT FILE (DISK DEPENDENT)
  10. C     LENDIR :  DIRECTORY LENGTH PER MATRIX (16)
  11. C     MCK    :  MEMORY CHECK TOGGLE
  12. C     NDT    :  NO. OF INTEGER WORDS PER DATA TYPE FOR INTEGER, REAL,
  13. C               AND COMPLEX (MACHINE DEPENDENT)
  14. C     NDB    :  DATABASE I/O CHANNEL (LOGICAL UNIT NUMBER)
  15. C     LIMIT  :  PRINTING LINES/PAGE
  16. C     NTM    :  LUN FOR TERMINAL SCREEN (MACHINE DEPENDENT)
  17. C     NTR    :  LUN FOR KEYBOARD (MACHINE DEPENDENT)
  18. C     NTF    :  LUN FOR TEXT FILE (MACHINE DEPENDENT)
  19. C
  20. C VARIABLES
  21. C     IA     :  MEMORY BANK (A LARGE INTEGER ARRAY)
  22. C     NARY   :  NO. OF ARRAYS IN DIRECTORY
  23. C     OPENED :  DATABASE OPENED/CLOSED INDICATOR
  24. C     NREC   :  NEXT AVAILABLE DIRECT FILE RECORD
  25. C     NOFF   :  NEXT AVAILABLE RECORD OFFSET
  26. C     IDIR   :  DIRECTORY ENTRY LOCATION
  27. C     ISORT  :  INDICATOR FOR DIRECTORY SORTED
  28. C     NXTLOC :  NEXT FREE MEMORY LOCATION
  29. C     KCTM   :  DATABASE CREATION DATE/TIME
  30. C     KATM   :  DATABASE LASTEST ACCESS DATE/TIME
  31. C     IBUFF  :  DATABASE FILE I/O BUFFER, IBUFF(LENG)
  32. C     DBNAME :  DATABASE FILE NAME
  33. C     RTN    :  AMS ROUTINE NAME CURRENTLY EXECUTED FOR ERROR REPORT
  34. C
  35.       COMMON /AMSCTL/ NDATA,NDB(5),NARY(5),NOPEN(5),NREC(5),NOFF(5),
  36.      *                KATM(6,5),KCTM(6,5),NDT(0:2),LENG,INTL,LENDIR,MCK,
  37.      *                IDIR,NXTLOC,ISORT,LIMIT,NTM,NTR,NTF,IBUFF(128),
  38.      *                NVERSN
  39.       COMMON /AMSTXT/ DBNAME(5),RTN
  40.       CHARACTER       DBNAME*60,RTN*6